Private Sub UserForm_Initialize()
'    
With ComboBox1
'   2
.ColumnCount = 2
'   50
.ColumnWidths = "50;50"
'  
.ColumnHeads = True
' 
.RowSource = "Sheet1!A1:B10"
'        
'.RowSource="Sheet1!HeightList"
End With

End Sub